home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / cleanup < prev    next >
Internet Message Format  |  1995-03-31  |  1KB
  1. From helens!shelby!rutgers!ucsd!ucbvax!ndsuhp.UUCP!hernes Tue May 15 16:35:55 PDT 1990
  2. Status: RO
  3.  
  4. Article 1639 of comp.sys.handhelds:
  5. Path: helens!shelby!rutgers!ucsd!ucbvax!ndsuhp.UUCP!hernes
  6. >From: hernes@ndsuhp.UUCP
  7. Newsgroups: comp.sys.handhelds
  8. Subject: hp-48 clean-up programs
  9. Message-ID: <9005152123.AA24267@plains.NoDak.edu>
  10. Date: 15 May 90 21:23:15 GMT
  11. Sender: daemon@ucbvax.BERKELEY.EDU
  12. Distribution: inet
  13. Organization: The Internet
  14. Lines: 30
  15.  
  16.  
  17. Someone asked for programs that "cleaned" up the stuff in the hp.
  18. The following program purges all of the variables used in the current
  19. equation.  It is easy and painless to run, just press the PURGEQ button,
  20. (or alternatively, bind it to a key, for example, the user-purge, key).
  21.  
  22. PURGEQ
  23. %%HP: T(3)A(D)F(.);
  24. \<< DEPTH \->LIST \-> a
  25.   \<< EQ DUP TYPE
  26.     IF 5 SAME
  27.     THEN EVAL
  28.     END
  29.     WHILE DEPTH
  30.     REPEAT DUP TYPE
  31.       CASE DUP 6
  32. SAME
  33.         THEN DROP
  34. PURGE
  35.         END 9 SAME
  36.         THEN OBJ\->
  37. DROP DROP
  38.         END DROP
  39.       END
  40.     END a OBJ\-> DROP
  41.   \>>
  42. \>>
  43.  
  44. Eric L. Hernes I.
  45. hernes@ndsuhp.uucp => H,E,R,N,E,S,at,N,D,S,U,H,P,dot,U,U,C,P
  46.  
  47.  
  48.